home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Utilities / Disk / DMS2HD / Install < prev    next >
Encoding:
Text File  |  1998-06-24  |  2.3 KB  |  100 lines
  1. ;
  2. ; DMS2HD installer Script - by Software Failure/Airsoft
  3. ;
  4. ; if there are any problems, email me: softwarefailure@dame.de
  5. ;
  6.  
  7. (message (cat "\n\nDMS2HD V1.0 \n\n(c) 1997 by Andreas Falkenhahn\n\n\n"
  8.               "This script installs DMS2HD to your\n"
  9.               "harddisk and adds an assign to your\n"
  10.               "S:User-startup. All operations can be\n"
  11.               "skipped!"
  12.          )
  13. )
  14.  
  15. (welcome)
  16.  
  17. (set #whereinstall "Copying file DMS2HD to C:")
  18. (set #whereinstall1 "Where to create the directory DMS2HD?")
  19. (set #whereinstall2 "Select destination for the documentation") 
  20.  
  21. (set #whereinstall_help "No help available")
  22.  
  23. (if (not (exists "C:DMS"))
  24.    (abort "Cannot find C:DMS. Please copy your DMS executable to C:. Path can be specified by the user in later versions! Please be patient!")
  25. )
  26.    
  27. (set name
  28.     (askdir 
  29.            (prompt #whereinstall1)
  30.            (help "Please select a valid path where the datafiles can be copied to!")
  31.            (default "SYS:")
  32.     )
  33. )
  34.  
  35. (copyfiles
  36.    (source "/DMS2HD.info")
  37.    (dest   name)
  38.    (nogauge)
  39. )
  40.  
  41. (makeassign "aj" name)
  42.  
  43. (makedir "aj:DMS2HD")
  44.  
  45. (makeassign "ag" "aj:DMS2HD")
  46.  
  47. (makedir "ag:dat")
  48.  
  49. (working "\n\nCopying datafiles...")
  50.  
  51. (copyfiles
  52.    (source "dat/")
  53.    (dest "ag:dat")
  54.    (all)
  55.    (nogauge)
  56. )
  57.  
  58. (copyfiles
  59.   (prompt #whereinstall)
  60.   (help "Select path where to install the main executable. Recommend is C:")
  61.   (source "DMS2HD")
  62.   (dest "C:")
  63.   (confirm)
  64. )
  65.  
  66. (working "\n\nPlease wait...")
  67.  
  68. (set dest2
  69.      (askdir
  70.            (prompt #whereinstall2)
  71.            (help "Select a path where to copy the documentation. Recommend is HELP:")
  72.            (default "Help:")
  73.      )
  74. )
  75.  
  76. (MakeAssign "airsoft2" dest2)
  77.  
  78. (copyfiles (source "DMS2HD.guide") (dest "airsoft2:"))
  79. (copyfiles (source "DMS2HD.guide.info") (dest "airsoft2:"))
  80.  
  81. (set sstr (substr name (- (strlen name) 1) 1))
  82. (if (or (= sstr "/") (= sstr ":")) (set dname (cat name "DMS2HD")) (set dname (cat name "/DMS2HD")))
  83.  
  84. (set sstr (substr dname (- (strlen dname) 1) 1))
  85. (if (or (= sstr "/") (= sstr ":")) (set diname (cat dname "dat")) (set diname (cat dname "/dat")))
  86.  
  87. (startup (prompt #assign) (help "No help")
  88.  
  89.           "DMS2HD"
  90.           (command (cat "\n"
  91.               "Assign DDAT: " diname
  92.           )
  93. ))
  94.  
  95. (message (cat "\n\nDMS2HD was successfully installed!\n\n"
  96.               "Enjoy the program and register!"
  97. ))
  98.  
  99. (exit (quiet))
  100.